﻿Public Class Contatore
  Private numero As Integer = 0
  Public Sub New(Optional ByVal _
      valoreIniziale As Integer = 0)
    numero = valoreIniziale
  End Sub
  Public Function Leggi() As Integer
    Return numero
  End Function
  Public Sub Incrementa()
    numero += 1
  End Sub
End Class
